home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MM3Tp.sea Folder / Made by Marksman / Sources / u / commonMM_Demo.p < prev    next >
Text File  |  1994-01-16  |  8KB  |  287 lines
  1. unit CommonMM_Demo;
  2. {  commonMM_Demo                         Common }
  3. {  Copyright © 1994 George R. Cossey }
  4.  
  5. { 
  6.     File name:  commonMM_Demo
  7.     Function:  Common variables for program specific code. 
  8.     History: 1/16/94 Original by George Cossey
  9.  
  10.    }
  11.  
  12.  
  13. interface
  14.  
  15. uses
  16.     Printing, Folders, Sound,mmCommonMM_Demo;
  17.  
  18. { ======================================================= }
  19. { ======================================================= }
  20.  
  21. { NOTE : FormatRevision MUST be first in the record, and always a short }
  22. type
  23.   PrefsHRec = ^PrefsPRec;                 {Handle definition}
  24.   PrefsPRec = ^PrefsRec;                  {Pointer definition}
  25. PrefsRec = record                    { Preferences Record definition }
  26.     { ALWAYS KEEP FormatRevision AS THE FIRST ELEMENT IN THIS RECORD }
  27.     FormatRevision:integer;            { FIRST ALWAYS, Change each time the format changes }
  28.     theWindowLocRec:WindowLocRec;    { For saving window positions }
  29.     { Add other preference variable definitions after this line }
  30.  
  31.     end;
  32.  
  33. { ======================================================= }
  34.  
  35. const
  36.     PrefsCreator =    'xxxx';            { Creator, this has to be the same as your App }
  37.     PrefsType    =    'Pref';            { Type, this has to match the type in your BNDL }
  38.     PrefsFormatRevision     = 1;            { Change each time the format changes }
  39.  
  40. procedure U_InitPreferences;
  41. procedure U_GetPrefParams(var PrefCreator,PrefType:OSType;var thePrefsFilename:Str255;var PrefsRecSize:longint;var thePrefsFormatRevision:integer);
  42. procedure U_ReadPrefsPrivate(PrefsRefNum:integer);
  43. procedure U_GetPreferences(thePrefsH:Handle);
  44. procedure U_SetPreferences(thePrefsH:Handle);
  45.  
  46. procedure Close_The_Input_File;
  47. procedure Close_The_Output_File;
  48. procedure Open_The_File;
  49. procedure Select_Volume;
  50. procedure Save_The_File;
  51. procedure Print_The_Data;
  52.  
  53. { ======================================================= }
  54. { ======================================================= }
  55.  
  56. implementation
  57.  
  58. { ======================================================= }
  59. { ======================================================= }
  60.  
  61. { Routine: U_InitPreferences }
  62. { Purpose: Set the default preferences }
  63.  
  64. procedure U_InitPreferences;
  65.  
  66.  
  67. begin
  68. end;
  69.  
  70. { ======================================================= }
  71.  
  72. { Routine: U_GetPrefParams }
  73. { Purpose: Get the preferences Parameters }
  74.  
  75. procedure U_GetPrefParams(var PrefCreator,PrefType:OSType;var thePrefsFilename:Str255;var PrefsRecSize:longint;var thePrefsFormatRevision:integer);
  76.  
  77.  
  78. begin
  79. PrefCreator := PrefsCreator;
  80. PrefType := PrefsType;
  81. thePrefsFilename := 'My Prefs';
  82. PrefsRecSize := sizeof(PrefsRec);
  83. thePrefsFormatRevision := PrefsFormatRevision;
  84. end;
  85.  
  86. { ======================================================= }
  87.  
  88. { Routine: U_ReadPrefsPrivate }
  89. { Purpose: Read the prefs ourselves }
  90.  
  91. procedure U_ReadPrefsPrivate(PrefsRefNum:integer);
  92.  
  93.  
  94. begin
  95. end;
  96.  
  97. { ======================================================= }
  98.  
  99. { Routine: U_GetPreferences }
  100. { Purpose: Get the preferences from the Prefs record already read in }
  101.  
  102. procedure U_GetPreferences(thePrefsH:Handle);
  103. var
  104.  thePrefs:PrefsHRec;
  105.  
  106.  
  107. begin
  108. thePrefs := PrefsHRec(thePrefsH);
  109. theWindowLocRec := thePrefs^^.theWindowLocRec;    { Get the window location data }
  110.  
  111. { Use the form:   xxxx := thePrefs^^.xxxx;    }
  112. end;
  113.  
  114. { ======================================================= }
  115.  
  116. { Routine: U_SetPreferences }
  117. { Purpose: Set new preferences, to be written out to the file }
  118.  
  119. procedure U_SetPreferences(thePrefsH:Handle);
  120. var
  121.  thePrefs:PrefsHRec;
  122.  
  123.  
  124. begin
  125. thePrefs := PrefsHRec(thePrefsH);
  126. thePrefs^^.FormatRevision := PrefsFormatRevision;    { Version number }
  127. thePrefs^^.theWindowLocRec := theWindowLocRec;        { Save the window location data }
  128.  
  129. { Use the form:   thePrefs^^.xxxx := xxxx;    }
  130. end;
  131.  
  132. { ======================================================= }
  133.  
  134. { Routine: Close_The_Input_File }
  135. { Purpose: Close the input file }
  136.  
  137. procedure Close_The_Input_File;
  138. var
  139.     ErrorCode:OSErr;
  140.  
  141.  
  142. begin
  143. ErrorCode := FSClose(Files.inputRefNum);                { Invalidate the refnum }
  144. Files.inputRefNum := 0;                                { Close the file }
  145. end;
  146.  
  147. { ======================================================= }
  148.  
  149. { Routine: Close_The_Output_File }
  150. { Purpose: Close the output file }
  151.  
  152. procedure Close_The_Output_File;
  153. var
  154.         ErrorCode:OSErr;
  155.  
  156.  
  157. begin
  158. ErrorCode := FSClose(Files.outputRefNum);            { Invalidate the refnum }
  159. Files.outputRefNum := 0;                                { Close the file }
  160. end;
  161.  
  162. { ======================================================= }
  163.  
  164. { Routine: Open_The_File }
  165. { Purpose: Open the input file }
  166.  
  167. procedure Open_The_File;
  168. var
  169.     NumberOfTypes,theVolRefNum:integer;
  170.     ErrorCode:OSErr;
  171.  
  172.  
  173. begin
  174. Files.typeList[0] := 'TEXT';                            { Open TEXT files }
  175. Files.typeList[1] := 'text';                            { Open other files }
  176. NumberOfTypes := 1;                                    { Only use first filetype in the list }
  177. if (Do_The_Open_File(NumberOfTypes,theVolRefNum,nil,nil)) then{ Try to open the file }
  178.     begin
  179.     ErrorCode := FSOpen(Files.inputFileName,Files.Reply.vRefNum,Files.inputRefNum);{ Open the file }
  180.     
  181.     { ADD in your code here to read the file }
  182.     
  183.     Close_The_Input_File;                            { Now close this file }
  184.     end;
  185. end;
  186.  
  187. { ======================================================= }
  188.  
  189. { Routine: Select_Volume }
  190. { Purpose: Select a volume }
  191.  
  192. procedure Select_Volume;
  193. var
  194.     theFile:FSSpec;
  195.  
  196.  
  197. begin
  198. if (Has.NewStdFile) then                                { Do this if we have new Standard File available }
  199.     begin
  200.     if (Do_The_Select_Volume(theFile)) then
  201.         begin
  202.         end;
  203.     end
  204. else
  205.     begin
  206.     end;
  207. end;
  208.  
  209. { ======================================================= }
  210.  
  211. { Routine: Save_The_File }
  212. { Purpose: Save the file }
  213.  
  214. procedure Save_The_File;
  215. var
  216.     theVolRefNum:integer;
  217.     theRefNum:integer;
  218.  
  219.  
  220. begin
  221. if (Do_The_Save_File('????','TEXT','Save as : ','Untitled ',theVolRefNum,theRefNum,nil)) then
  222.     begin
  223.  
  224.     { ADD in your code here to save the file }
  225.  
  226.     Close_The_Output_File;                        { Now close this file }
  227.     end;                                                { End of IF }
  228. end;
  229.  
  230. { ======================================================= }
  231.  
  232. { Routine: Print_The_Data }
  233. { Purpose: Print the data }
  234.  
  235. procedure Print_The_Data;
  236. var
  237.     ThePrintPort:GrafPtr;                                { Print port }
  238.     SavedPort:GrafPtr;                                    { saved window port }
  239.     Doing_Page:integer;                                    { Current print page number }
  240.     NumberOfCopies:integer;                                { Number of copies of each page }
  241.     Count:integer;                                        { Number of copies of each page }
  242.     Cancelled:Boolean;                                    { User cancelled flag }
  243.     NumberOfPages:integer;                                { Change this for the number of pages to do }
  244.     ThePageString:Str255;                                { For showing the page number }
  245.  
  246.  
  247. begin
  248. GetPort(SavedPort);                                { Get the current window port }
  249.  
  250. NumberOfPages := 2;                                    { CHANGE for your pages limit }
  251. OpenThePrinter(Cancelled);                            { Ask about the next page }
  252.  
  253. if ((Printing.pPrPort <> NIL) and (Printing.hPrint <> NIL) and (not(Cancelled))) then
  254.     begin
  255.     ThePrintPort := GrafPtr(Printing.pPrPort);        { Get the current window port }
  256.     SetPort(ThePrintPort);                            { Point to the printer port }
  257.     TextFont(systemFont);
  258.     TextSize(12);
  259.     Doing_Page := 1;
  260.  
  261.     repeat                                            { Do all the pages in our document }
  262.         InitCursor;
  263.         PrOpenPage(Printing.pPrPort, nil);            { Open a new page }
  264.         SetPort(ThePrintPort);
  265.  
  266.         { ADD YOUR PRINTING CODE HERE, DRAW INTO THIS PORT }
  267.         MoveTo(10, 20);
  268.         DrawString('Printing from Marksman ™code , page ');
  269.         NumToString(Doing_Page,ThePageString);
  270.         DrawString(ThePageString);
  271.         { END OF ADD YOUR PRINTING CODE HERE }
  272.  
  273.         PrClosePage(Printing.pPrPort);                { Print this page }
  274.         SetPort(SavedPort);
  275.         Doing_Page := Doing_Page + 1;                { Bump the page count }
  276.     until (Doing_Page > NumberOfPages);
  277.     end;
  278.  
  279. CloseThePrinter;                                    { Close the printer }
  280. SetPort(SavedPort);
  281. InitCursor;
  282. end;
  283.  
  284. { ======================================================= }
  285. { ======================================================= }
  286. end.
  287.